home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
mach10.zip
/
FDOOR.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-06-24
|
2KB
|
89 lines
:Start
i:
set sirius=\sirius
cd\binkley
rem capture on
nodesay i:\mach10 1 waiting for a call
FD
If ErrorLevel 100 Goto GetRbbs
If ErrorLevel 90 Goto LocalLogon
If ErrorLevel 70 Goto InPutArcMail
If ErrorLevel 60 Goto ConRen
If ErrorLevel 50 Goto Twmaint
If ErrorLevel 40 Goto Mailprocess
If ErrorLevel 1 Goto End
Goto Start
:LocalLogon
Exebbs /S 0 0 1
cd \Binkley
Goto Start
:Twmaint
nodesay i:\mach10 1 performing game maintenance
cd \mach10\ww3
maint
cd \mach10\twars
twars/m
cd \mach10\twars2
twars/m
n:
cd \foa
foa /m
i:
cd \binkley
if exist k:\files\usatoday.arc del k:\files\usatoday.arc
goto start
:GetRbbs
makenode 1
DoBBS
Goto Start
:checkfiles
goto start
:log
copy Binkley.log Binkley.old
Del binkley.log
goto Start
:InputArcMail
HPUTIL IMPORT
HPUTIL EXPORT
Goto Start
rem nodesay i:\mach10 1 processing mail
rem ConfMail Import -F ConfMail.Out -A Pkxarc
rem If ErrorLevel 2 Goto Severe1
rem If ErrorLevel 1 Goto Do_Maint
rem Goto End_Import
rem :Do_Maint
rem ConfMail Maint -F ConfMail.Out
rem If ErrorLevel 2 Goto Severe1
rem Goto End_Import
rem :Severe1
rem Echo Severe ERROR in Inport or Maint
rem :End_Import
rem ConfMail Export -D i:\binkley\messages -K -NP -R -A
rem Goto Start
:MailProcess
rem nodesay i:\mach10 1 processing mail
rem ConfMail Export -D i:\binkley\messages -K -NP -R -A
HPUTIL IMPORT
HPUTIL EXPORT
Goto start
:ConRen
nodesay i:\mach10 1 renumbering message bases
rem del outbound\*.$$?
HPUTIL PACKALL
cd \mach10
mach10 1 /CALCTOP
mach10 1 /M
cd \binkley
Goto Start
:End